home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / jui_n.inc < prev    next >
Encoding:
Text File  |  1998-02-12  |  2.6 KB  |  171 lines
  1. *---------------------------------------
  2. *
  3. *    âWâàâCò\Ī
  4. *
  5. *    âjâàü[âgâëâï
  6. *
  7. *    by Shiroh Nakaya
  8. *
  9. *---------------------------------------
  10. jui_n:
  11.     move.w    C_X(a1),d1
  12.     move.w    C_Y(a1),d2
  13.     tst.w    C_LR_F(a1)
  14.     bne    @f
  15.  
  16.     subq.w    #8,d1
  17.     subi.w    #24,d2
  18.     move.w    d1,(a6)+
  19.     move.w    d2,(a6)+
  20.     move.w    d7,(a6)+
  21.     move.w    #$0003,(a6)+
  22.  
  23.     addi.w    #16,d2
  24.     addq.w    #1,d7
  25.     move.w    d1,(a6)+
  26.     move.w    d2,(a6)+
  27.     move.w    d7,(a6)+
  28.     move.w    #$0003,(a6)+
  29.  
  30.     addi.w    #16,d2
  31.     addq.w    #1,d7
  32.     move.w    d1,(a6)+
  33.     move.w    d2,(a6)+
  34.     move.w    d7,(a6)+
  35.     move.w    #$0003,(a6)+
  36.  
  37.     rts
  38. @@:
  39.     subq.w    #8,d1
  40.     subi.w    #24,d2
  41.     addi.w    #$4000,d7
  42.     move.w    d1,(a6)+
  43.     move.w    d2,(a6)+
  44.     move.w    d7,(a6)+
  45.     move.w    #$0003,(a6)+
  46.  
  47.     addi.w    #16,d2
  48.     addq.w    #1,d7
  49.     move.w    d1,(a6)+
  50.     move.w    d2,(a6)+
  51.     move.w    d7,(a6)+
  52.     move.w    #$0003,(a6)+
  53.  
  54.     addi.w    #16,d2
  55.     addq.w    #1,d7
  56.     move.w    d1,(a6)+
  57.     move.w    d2,(a6)+
  58.     move.w    d7,(a6)+
  59.     move.w    #$0003,(a6)+
  60.  
  61.     rts
  62. *---------------------------------------
  63. jui_for:
  64.     move.w    C_X(a1),d1
  65.     move.w    C_Y(a1),d2
  66.     tst.w    C_LR_F(a1)
  67.     bne    @f
  68.  
  69.     subq.w    #8,d1
  70.     subi.w    #24,d2
  71.     addi.w    #$0034,d7
  72.     move.w    d1,(a6)+
  73.     move.w    d2,(a6)+
  74.     move.w    d7,(a6)+
  75.     move.w    #$0003,(a6)+
  76.  
  77.     addi.w    #16,d2
  78.     addq.w    #1,d7
  79.     move.w    d1,(a6)+
  80.     move.w    d2,(a6)+
  81.     move.w    d7,(a6)+
  82.     move.w    #$0003,(a6)+
  83.  
  84.     addi.w    #16,d2
  85.     addq.w    #1,d7
  86.     move.w    d1,(a6)+
  87.     move.w    d2,(a6)+
  88.     move.w    d7,(a6)+
  89.     move.w    #$0003,(a6)+
  90.  
  91.     rts
  92. @@:
  93.     subq.w    #8,d1
  94.     subi.w    #24,d2
  95.     addi.w    #$4034,d7
  96.     move.w    d1,(a6)+
  97.     move.w    d2,(a6)+
  98.     move.w    d7,(a6)+
  99.     move.w    #$0003,(a6)+
  100.  
  101.     addi.w    #16,d2
  102.     addq.w    #1,d7
  103.     move.w    d1,(a6)+
  104.     move.w    d2,(a6)+
  105.     move.w    d7,(a6)+
  106.     move.w    #$0003,(a6)+
  107.  
  108.     addi.w    #16,d2
  109.     addq.w    #1,d7
  110.     move.w    d1,(a6)+
  111.     move.w    d2,(a6)+
  112.     move.w    d7,(a6)+
  113.     move.w    #$0003,(a6)+
  114.  
  115.     rts
  116. *---------------------------------------
  117. jui_back:
  118.     move.w    C_X(a1),d1
  119.     move.w    C_Y(a1),d2
  120.     tst.w    C_LR_F(a1)
  121.     bne    @f
  122.  
  123.     subq.w    #8,d1
  124.     subi.w    #24,d2
  125.     addi.w    #$0037,d7
  126.     move.w    d1,(a6)+
  127.     move.w    d2,(a6)+
  128.     move.w    d7,(a6)+
  129.     move.w    #$0003,(a6)+
  130.  
  131.     addi.w    #16,d2
  132.     addq.w    #1,d7
  133.     move.w    d1,(a6)+
  134.     move.w    d2,(a6)+
  135.     move.w    d7,(a6)+
  136.     move.w    #$0003,(a6)+
  137.  
  138.     addi.w    #16,d2
  139.     addq.w    #1,d7
  140.     move.w    d1,(a6)+
  141.     move.w    d2,(a6)+
  142.     move.w    d7,(a6)+
  143.     move.w    #$0003,(a6)+
  144.  
  145.     rts
  146. @@:
  147.     subq.w    #8,d1
  148.     subi.w    #24,d2
  149.     addi.w    #$4037,d7
  150.     move.w    d1,(a6)+
  151.     move.w    d2,(a6)+
  152.     move.w    d7,(a6)+
  153.     move.w    #$0003,(a6)+
  154.  
  155.     addi.w    #16,d2
  156.     addq.w    #1,d7
  157.     move.w    d1,(a6)+
  158.     move.w    d2,(a6)+
  159.     move.w    d7,(a6)+
  160.     move.w    #$0003,(a6)+
  161.  
  162.     addi.w    #16,d2
  163.     addq.w    #1,d7
  164.     move.w    d1,(a6)+
  165.     move.w    d2,(a6)+
  166.     move.w    d7,(a6)+
  167.     move.w    #$0003,(a6)+
  168.  
  169.     rts
  170. *---------------------------------------
  171.